# name : sapply on params
# key : paramsl.sapply
# contributor: Shuguang Sun
# --
${1:out} <- sapply(${2:paramsl}, ${3:func})
$1 <- as.data.frame(t($1))
colnames($1) <- c($0)
